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; FACILITY: 

; ABSTRACT: 

Source Update Merge error processing 

; ENVIRONMENT: USER MODE 

; AUTHOR: R. Newland 

; MODIFIED BY: 

v03-002 MTROOO1 hodes 19-Jan-1983 
| 


DOOOSOSOOSOOSOOSOOSSOSOSOSOOSOSOSOOSOSOOSOOOSOOOOOOOOOOOOO 


COOSCOCOCOCSOOOOCOSOOOSSOSOOOSOSOSOSSSOSOSOSOOSOSOOOSOSOSOOOOOOOOOSOOOOOOOO 


COOSOCOCOOCOOCOOSOOOCSOOSOOOOOSOOoOSoOSoOOoCoOO 


SUMSHR's method of Issuing di dia most ics SPUTMSG or SiGhAL. 
The routines PUT_MSG and SUMSL R have been modif 
to use this selection se ektoes esburmse is the default). 


v03-001 BLS0173 Benn Schreiber 26-MAY-1982 
Make error routines into entry points so they can be vectored. 


v003 TMHOOO3 Tim Halvorsen 26-Dec-1981 
Fix error reporting, which was broken because it relied 
on the number of arguments to PUTMSG to point to one of 
the arguments - now broken because PUTMSG has an extra 
optional argument. 


v02-002 CNHOO037 Chris Hume 21-Sep-1980 
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: Add routine SUNSETS sTenat Suhich allows a user to select 
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vou-000" SoS 1986 88:58:88 YAY SacHimeekonsnar;1 == 29% GF vue 
Added SUMSWRITE_ERR while obsoleting SUMSLP's ERROR.MAR 


21-Mar-1980 


v02-001 B. Schreiber 
Make totally position independent 
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SUMSERROR 16-SEP-1984 1: AX/VMS M ere v04-00 Pa 
you~ 500 DECLARATIONS eS PA Ay we 3) 
$e ; -SBTTL DECLARATIONS 
e Macro definitions 
6 ; SF ABDEF : FAB block 
0 SNAMDEF ; NAM blo 
71 RABDEF ; RAB block 
ue SSHRDEF Shared messages 
0 oF : SSTSDEF ; Status values 
6 75: 
0 58 ; Local storage 
ae 
00000000 0 : .PSECT SUMS$RO_DATA,NOEXE ,NOWRT,LONG 
000 ; : 
909 gum. NAME : 
4D 55 53 fl 4 4 eASCIC /SUM/ 3; Facility name for messages 
Babe 85 ; 
004 $ 3 
0000105 3 -PSECT SUMSRW_DATA,NOEXE,LONG 
$009 89 : 
9009 90 SUM_CONTEXT: 
00 0000 91 -—BYTE 0 : Context bits...Low bit indicates 
0001 8 ; Stagnest tes issued by SPUTMSG (0 - default 
0001 9 3 SIGNAL (1) 
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-SBTTL RMS ERROR PROCESSING 


a4 
Functional description: 


These routines are called as RMS error processing action routines. 
They form and print a message describing the error. 


4(AP) = Address of RMS control block (either FAB or RAB) 


SUMSCODE ,NOWRT ,LONG 
SUMSOPEN_ERR, “M<R2,R3,R4,R5> 
#SHRS 
R4 AR 
10§ 

#STSSK_INFO, = 
#STSSV_SEVERITY, 
#STS$S_SEVERITY, 
PUT_MSG ; Put message 


i Process for FAB control block 
OPENIN! STS$K_ERROR!<2816>,R1 ; Get shared message code 
AS$_FNF ; Was error ‘file not found'? 

3; No if NEQL 

; Yes so reduce severity to information 


SUMSCLOSE_ERR,“M<R2,R3,R4,R5> 
R ss for FAB control block 


4 roce 
#SHRS_CLOSEIN! STS$K_ERROR!<2a16>,R1 ; Get shared message code 
PUT_MSG ; Put message 


SUMSREAD_ERR, “M<R2,R3,R4,R5> 
RR ; Process for RAB control block 
R4 ,PRMS$_EOF 3 Is error end-of-file? 


. ‘38 if EQL, so don't report 
#SHRS READERR! STSSK_ERROR! < @16>,R1 ; Get shared message code 


; Put messace 


SUMSWRITE_ERR,“M<R2,R3,R4,R5> 
s for RAB control block 


R ; Proce 
#SHR WRITEERR! STS$K_ERROR! <2a1 >,R1 ; Get shared message code 
PUT_MSG ; Put message 
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.SBTTL FAB_ERR and RAB_ERR 


++ 
Functional description: 


These two routines are called to form the data required to 
use the system PUTMSG routine. Separate entry points exist 
for the RMS control block being an FAB or RAB 


Inputs: 
4(AP) = Address of RMS control block 


FAB address 

NAM block address 

Size of file spec string 
Address of file spec string 
Completion status code 
Status value 
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-ENABL LSB 
FAB_ERR: 
50 AC D0 MOVL 4(AP) ,RG ; Get FAB address 
54 08 AO 7D MOVa FABSL_STS(RO),R4 ; Get completion code and status value 
oc BRB 10$ 
RAB_ERR: 
51 Of AC 00 MOVL 4(AP) ,R1 ; Get RAB address 
50 C Al D0 MOVL RABSL_FAB(R1) ,RO ; and then FAB address 
54 O08 Al 7D 108 MOVQ RABSL_STS(R1),R4 3; Get completion code and status value 
51 68 AO b0 MOVL FABSL_NAM(RO) ,R1 ; Get NAM block address 
53 4 Ail 00 NAMSL_RSA(R1) ,R3 ; Get resultant string address 
52. O3 Al 9A MOVZBL NAMS$B_RSL(R1),R2 3 and lengt 
os 208 ; If NEQ resultant string was formed 
53 OC Al OD NAMSL_ESA(R1) ,R3 ; Get expanded string address 
52 OB Al QA MOV7BL NAMSB_ESL(R1),R2 ; and Length 
0 1 0$ ; If NEQ expanded string was formed 
53 ef A D MOVL FABSL_FNA(RO) ,R3 : Get input file name 
52 4A 9A 208 MOVZBL FABSB_FNS(RO) ,R2 ; and size 
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~SBTTL PUT_MSG 


++ 
Functional description: 


This routine takes message data and calls the ayetes service 
to expand and put the message to the processes SYSSOUTPUT stream 


Inputs: 


IPP IP IP IP SP SP LP IPI PD 


* 3 3 9 § 2 I QODODDOD0O 


Message code 

Size of file spec string 
Address of file spec string 
RMS completion status code 
RMS status value 
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4 
0 
0 i 
5 
BH sie 
p 5 
y Outputs: 
5 1 None 
0 2 
0 § j-- 
0 4; 
0 5 PuT_MSG: 
11 QOOOOOOO'EF €E8 § BLBS SUM_CONTEXT, 10$ ; Diagnostics issued from SPUTMSG or SIGNAL? 
OQOOOOOOO'EF DF OQ PUSHAL SUM_NAM ; Form string descriptor for facility name 
50 00 B8E 9 O 8 MOVZBL a(SP),R ; Get Length of string 
6—E 06 9 INCL (SP) ; Point to yore 
50 dD 009 0 PUSHL R ; Form complete descriptor 
50 5E 00 0098 1 MOVL SP,RO ; Save descriptor address 
8 BB O09E ¢ 10$: PUSHR #*M<R2,R3> : Form string descriptor from R2 and R3 
0 4 BRA PUSHR #*M<R4,R5> ; and push RMS code and status values 
08 AE F - 4 PUSHAQ 8(SP) ; Address of string descriptor 
Q! DD A 5 PUSHL 3; Number of arguments 
1 DD OOA $ PUSHL R1 ; Message gode 
19 OOO00000'EF £8 OOA9 LBS SYM_CONTERT. 20$ ; Diagnostics issued from SPUTMSG or SIGNAL? 
05 dD 008 g PUSHL @# ; Size of message packet 
51 SE 00 008 MOVL SP,R1 ; Point to messege argument vector 
08 40 SPUTMSG_S MSGVEC=(R1),- ; Convert and print message 
08 41 —— 
5E 28 CO 00C4 4g ADDL2 #10%4,SP ; Remove 10 longwords from stack 
OA 11 00C7 4 BRB 3; And return. 
QO000000'GF O05 fF C9 44 208: ALS #5, G*LIBSSIGNAL ; Ship the apeenes 
5E 608 f 0 re $08 appt #24, SP ; Clean up the stack 
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41 " ~SBTTL LIBRARY ROUTINE ERROR | 
D4 9 3 | 
D4 3 ++ | 
+ § : Functional description: 
D4 63 This procedure is called to form and output an error message | 
0D4 55; for a library routine error 
0D4 2$ 3 
Bt BEF nou | 
: Inputs: 
D4 35 3 
D4 60 ; RO = Error code 
OD4 61 ; 
0D4 $6 3 
00D4 63 ; Outputs: 
0D4 64 ; 
OD4 65 ; None 
00D4 or i 
0D4 68 ; 
000C 00D4 $2 -ENTRY SUMSLIB_ERR,“*M<R2,R3> 
2C OOOOOOOO'EF E8 00D6 0 BLBS SUM_CONTEXT, 10$ ; Diagnostics issued from $PUTMSG or SIGNAL? 
52 a 9E it 71 MOVAB SUM_NAME,R2 : Form descriptor for facility name 
53 ¢ 9A O0E4 7 MOVZBL (R2) ; Get length of name 
ze 53 7D OOE7 27 MOVQ = R3, = §P) : Stack descriptor 
53: F DO OOEA 74 MOVL SP, ; And save it's address 
5 DD OQOED 75 PUSHL RO : Form gessoge arguments on stack 
01 OD OOEF 7 PUSHL #1 ; Set size of vector 
50 5E 00 OOF! 7 MOVL SP,RO ; Point to message argument vector 
OOF4 78 SPUTMSG_S MSGVEC=(RO),- ; Form and output message 
OOF4 79 FACNAM=(R3) 
50 04 AE 00 B13 0 MOVL 4(SP),RO ; Restore RO 
OF 11 107 1 BRB 20$ 3; And exit... 
50 DD 0109 Ht 10$: PUSHL RO ; Preserve RO across the call 
00 oD 0108 PUSHL #0 ; No additional arguments 
50 oD 130 4 PUSHL RO ; Stack the error code 
00000000'GF 02 FB 0O10F 5 CALLS #2, G*LIBSSIGNAL : Issue the message 
01 + #=BA Big $ 208 oo #*M<RO> ; Restore RO 
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.SBTTL SUMSSET_SIGNAL 


° 
; Functional Description: 


This preqoeere selects SUMSHR's method for issuing 
diagnostic messages. 


Inputs: 


4 (AP) Value r bit of this value selects 


rde 
(default) 


e low or 
$PUT mse 
SIGNAL 
Implicit Inputs: 

SUM_CONTEXT Byte Bit vector for context selection. 
Implicit Outputs: 


SUM_CONTEXT Byte The low order bit is toggled. 


Bete Ge Se Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Se Se tote Se Ge Se 
+ 


ENTRY preset SIGNAL, “M<> 
ieee » FO, #1, SUM CONTEXT 


RET 
- END 


; Make the selection. 
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FABSB_FNS ad 
FABSL-FNA = 
. 
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i 
mom 
“vnno 

nun 


6 R 04 


rd 

& 
mee 
mm 
zawewn" 
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“nw 


ree x oe 
" xX 4 
SHR$_CLOSEIN 

SHR$_OPENIN 
SHR$_READERR 
SHR$_WRITEERR 
STSS$R_ERROR 
STSSK_INFO 
STS$S_SEVERITY 
STS 

S 


ou" 


OOF OF OOUWNOCOBDO 


HhHuonnnns 


TS$V_SEVERITY 
E_ERR 
ERR 


00000000 R 


6 
RG 
RG 8 
0 
0 
$ 0 
SY SSPUTASG ttereree GX 0 


FWWERRRRRS 


PSECT name Allocation PSECT No. Attributes 

NOSHR NOEXE NORD NOWRT NOVEC B 
et tt EXE RD WRT NOVEC B 
NOSHR NOEXE RD NOWRT NOVEC L 
NOSHR NOEX RD WRT NOVEC L 

NOSHR EX RD NOWRT NOVEC L 


te i 


) LCL 
) C LCL 
-) NOPIC USR CON REL LCL 
) ON LCL 
) LCL 


Geoeweeeoosceseccceseceos$ 


Phase Page faults CPU Time Elapsed Time 


pate tas tzetten eree-ewirge” 0 00:00:00. ee 
ponnene processing 131 00:00. 


Syabol table sort 
“9 
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Pass 1. 702.54 


vAReTS Recro Run Statistics ~$eb= 1382 88: 43; § SUN SRCISOM 


Symbol table output :00:00. :00:00. 
Psect synopsis output :00:00. :00:00. 
Cross-reference output :00:00. :00:00. 
Assembler run totals 46 7:00:08. :00:19.4 
ios working (85 Limit was 1050 pages. 
3264 b bytes (65 pages) of virtual memory were used to buffer the intermediate or: 
ners were 40 pages of symbol table space se d to hold 613 non-local “ig local symbols. 


20 source Lines were read in Pass 1, produ object records in Pass 
pages of virtual memory were used to defin macros. 


Macro Library name Macros defined 
Hitt § SUM.OBJJSUM.MLB; 1 7 

“$255$DUA28: CSYSLIBIJSTARLET .MLB;2 1 

TOTALS (all Libraries) 10 


688 GETS were required to define 10 macros. 


There were no errors, warnings or information messages. 
MACRO/LIS=L1S$:SUMERROR/OBJ=OBJ$:SUMERROR MSRC$: SUMERROP/UPDATE=(ENHS: SUMERROR) +LIB$:SUM/LIB 
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